home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / 173bmrg.zip / R-PC1028.MRG < prev    next >
Text File  |  1990-10-28  |  3KB  |  58 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against 17.3A\RBBS-PC.BAS to produce 17.3B\RBBS-PC.BAS
  3. * 17.3A\RBBS-PC.BAS:  Date 9-25-1990  Size 166652 bytes
  4. * ------------[ Created 10-28-1990 12:00:05 ]------------
  5. * REPLACING old line(s) by new
  6. 4 ' $title: 'RBBS-PC 17.3B, Copyright 1990 by D. Thomas Mack'        ' DA102501
  7. * REPLACING old line(s) by new
  8. 16 ' *  companion program, CONFIG (version 17.3B), to make copies of this     *
  9. * REPLACING old line(s) by new
  10. 105 ZVersionID$ = "17.3B"
  11. * REPLACING old line(s) by new
  12. 4402 IF LEN(ZUserIn$(ZAnsIndex)) = 1 THEN _                          ' KG022701
  13. * ------[ first line different ]------
  14.         WasY = INSTR("QqHh?",ZUserIn$(ZAnsIndex)) : _                ' KG101202
  15.         IF WasY > 2 THEN _                                           ' KG081302
  16.             ZFileName$ = ZHelpPath$ + "MR" + ZHelpExtension$ : _
  17.             GOSUB 1790 : _
  18.             GOTO 4390 _                                              ' KG101202
  19.         ELSE IF WasY > 0 THEN _                                      ' KG101202
  20.                 RETURN                                               ' KG101202
  21.      MsgIndex = 0                                                    ' KG022701
  22.      NumMsgsSelected = ZWasQ
  23.      GOTO 4370
  24. * REPLACING old line(s) by new
  25. 4515 IF Forward THEN _
  26.         ZOutTxt$ = "No new messages" : _
  27.         ZLastMsgRead = HighMsgNUmber : _
  28.         ZMailWaiting = ZFalse _
  29.      ELSE ZOutTxt$ = "No such msg #" + _
  30.                STR$(CurMsg)
  31. * ------[ first line different ]------
  32.      IF SubInHeader$ = "" THEN _                                     ' KG102001
  33.         GOSUB 12979                                                  ' KG102001
  34.      GOTO 4370
  35. * REPLACING old line(s) by new
  36. 4710 ZOutTxt$ = "Page " + _
  37.           ZSysopFirstName$ + _
  38.           " (Y/[N])"
  39.      CALL SkipLine (1)
  40.      GOSUB 12999
  41.      IF NOT ZYes THEN _
  42.         RETURN
  43.      PageCount = 0
  44.      ZOutTxt$ = "Paging " + _
  45.           ZSysopFirstName$                                           ' KG071301
  46.      GOSUB 12978
  47.      PageTimeStart! = TIMER
  48. * ------[ first line different ]------
  49.      TempSnoop = ZSnoop                                              ' DA101801
  50.      ZSnoop = ZTrue                                                  ' DA101801
  51.      CALL Line25                                                     ' DA102401
  52. * REPLACING old line(s) by new
  53. 4745 GOSUB 12978
  54.      CALL CheckTime (PageTimeStart!, PageTimeNow!, 2)
  55.      IF PageTimeNow! < 30 THEN GOTO 4730
  56. * ------[ first line different ]------
  57.      ZSnoop = TempSnoop                                              ' DA101801
  58.